<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<% Response.Charset = "gb2312" %>

<%
	dim conn
	dim connstr
	dim db
	db="db/Currency.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123456789;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	sub closedatabase()
	  conn.close
      set conn=Nothing
    End sub
	
	
	function GetDateLeft(DateStr)
		Dim Fb_Date
		Fb_Date = DateStr
		If InStr(Fb_Date , " ") > 0 Then
			Fb_Date = Split(Fb_Date)
			GetDateLeft=Fb_Date(0)
		Else
			GetDateLeft=Fb_Date
		End If
	End Function
	
	
	
Function Chang_Str1(StrValue)
 Dim Value
 Value =Replace(StrValue,"&quot;",""""" ")
 Value =Replace(Value,"&apos;","'")
 Chang_Str1=Value
End Function 


Sub ShowMsg(MsgStr , FileName)
	Response.Write("<script>alert('"& MsgStr &"');")
	If FileName = "" Then
		Response.Write("history.back();")
	Else
		Response.Write("location.href='"& FileName &"';")
	End If
	Response.Write("</script>")
	Response.End()
End Sub

%>   
